home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Modes / latexLoad.tcl < prev    next >
Text File  |  1996-08-15  |  8KB  |  259 lines
  1. #############################################################################
  2. # Install the files that support one of the LaTeX modes.
  3. # The global flag $latexVersion indicates which mode (LaTeX 2.09 or LaTeX2e)
  4. # is currently installed.
  5. #
  6. # Author: Tom Pollard <pollard@cucbs.chem.columbia.edu>
  7. # (updated 4/29/95 for latex.tcl v2.4)
  8. # (updated 7/02/96 for latex.tcl v3.2 TRS)
  9. #
  10. proc loadLaTeX {} {
  11.     global HOME latexVersion
  12.     
  13.     set oldWd [pwd]
  14.     cd $HOME
  15.     
  16.     set latex209Dir ":LaTeX:latex 2.09"
  17.     set latex209Files {
  18.             {"latexMode.tcl" ":Tcl:Modes" 1}
  19.             {"latex.tcl" ":Tcl:Modes" 1}
  20.             {"smart.tcl" ":Tcl:Modes" 0}
  21.             {"LaTeX Help" ":Help" 0}
  22.             {"LaTeX Key Bindings" ":Help" 0}
  23.     }
  24.  
  25.     set latex2eDir ":LaTeX:latex 2e"
  26.     set latex2eFiles {
  27.             {"latexMode.tcl" ":Tcl:Modes" 1}
  28.             {"latex.tcl" ":Tcl:Modes" 1}
  29.             {"latexComm.tcl" ":Tcl:Modes" 0}
  30.             {"latexEngine.tcl" ":Tcl:Modes" 0}
  31.             {"latexFilesets.tcl" ":Tcl:Modes" 0}
  32.             {"latexKeys.tcl" ":Tcl:Modes" 0}
  33.             {"latexMacros.tcl" ":Tcl:Modes" 0}
  34.             {"latexMenu.tcl" ":Tcl:Modes" 0}
  35.             {"latexPatches.tcl" ":Tcl:Modes" 0}
  36.             {"latexSmart.tcl" ":Tcl:Modes" 0}
  37.             {"LaTeX Help" ":Help" 0}
  38.     }
  39.     set report 0
  40.  
  41.     if {$latexVersion == "2e"} {
  42.         if {[askyesno "Install LaTeX 2.09?"] == "yes"} {
  43.             set report [installFiles $latex209Dir $latex209Files $latex2eDir $latex2eFiles 0 1 TeX]
  44.             if {$report != 0} {
  45. # uncomment these lines if new files are not automatically sourced
  46. #                 alertnote "Now quit and restart Alpha to load LaTeX 2.09 mode"
  47. #                 set latexVersion "2.09"
  48. # and comment out this one
  49.                 alertnote "LaTeX 2.09 support was successfully installed"
  50. #
  51.             } else {
  52.                 alertnote "The installation was cancelled"
  53.             }
  54.         }
  55.     } elseif {$latexVersion == "2.09"} {
  56.         if {[askyesno "Install LaTeX 2e?"] == "yes"} {
  57.             set report [installFiles $latex2eDir $latex2eFiles $latex209Dir $latex209Files 0 1 TeX]
  58.             if {$report != 0} {
  59. # uncomment these lines if new files are not automatically sourced
  60. #                alertnote "Now quit and restart Alpha to load LaTeX2e mode"
  61. #                set latexVersion "2e"
  62. # and comment out this one
  63.                 alertnote "LaTeX2e support was successfully installed"
  64. #
  65.             } else {
  66.                 alertnote "The installation was cancelled"    
  67.             }
  68.         }
  69.     }
  70.     
  71.     if {$report != 0} {
  72.         set timePat {([0-9/]+) ([^:]+):([^:]+):([^:]+) (..)}
  73.         regsub $timePat [join [mtime [now] short]] {\1 \2.\3\5} timestamp
  74.         set fname "$HOME:LaTeX:Install Report $timestamp"
  75.         
  76.         set tmpfid [open $fname "w+"]
  77.         puts $tmpfid $report
  78.         close $tmpfid
  79.     }
  80.     
  81.     cd $oldWd
  82. }
  83.  
  84. ##############################################################################
  85. # Install a list of files from $InstallDir into various destination folders.
  86. #
  87. # Each item of $installList contains a list of two items : a file and its 
  88. # destination directory.  If $backupDir and $backupList are given, then the 
  89. # files from this list are first removed from the indicated directories and 
  90. # saved in $backupDir.  If $deleteOld is 1, then an old file is just
  91. # deleted if the backup directory doesn't exist or if it already contains
  92. # the file; if $overwriteBackups is 1, then old backup files will be
  93. # overwritten ($deleteOld is checked before $overwriteBackups).
  94. #
  95. # If any Tcl source files (.tcl) are installed, then they are also automatically
  96. # sourced and "rebuildTclIndices" is called to update the autoloader index files.
  97. # 
  98. # Author: Tom Pollard <pollard@cucbs.chem.columbia.edu>
  99. #
  100. #             if {[file extension $file] == ".tcl"} {
  101.  
  102. proc installFiles {installDir installList backupDir backupList 
  103.                    {deleteOld 0} {overwriteBackups 0} {deleteBindings 0}} {
  104.     global HOME latexMenu
  105.     set script {}
  106.     set report ""
  107.     set askedAlready 0
  108.     set removed {}
  109.     
  110.     set script2 {}
  111.     set report2 ""
  112.     
  113.     lappend script [list uplevel {#0} [list catch [list removeMenu $latexMenu]]]
  114.  
  115.     if {! [file exists $backupDir] && ! $deleteOld} {
  116.         lappend script [list mkdir $backupDir]
  117.         append report "Created backup directory \"$backupDir\"\n"
  118.     } 
  119.     
  120.     foreach item $backupList {
  121.         set file [lindex $item 0]
  122.         set dir [lindex $item 1]
  123.         
  124.         set frompath ${dir}:${file}
  125.         set topath ${backupDir}:${file}
  126.  
  127.         if {[closeInstallFile $file] == "cancel"} {
  128.             return 0
  129.         }        
  130.         
  131.         if {[file exists $frompath]} {
  132.             if {[file exists $topath]} {
  133.                 if {!$deleteOld && !$overwriteBackups && !$askedAlready} {
  134.                     if {[askyesno "Can I delete old files that are already backed up?"] == "yes"} {
  135.                         set deleteOld 1
  136.                     } elseif {[askyesno "Can I overwrite previous backup files?"] == "yes"} {
  137.                         set overwriteBackups 1
  138.                     }
  139.                     set askedAlready 1
  140.                 }
  141.                 if {$deleteOld} {
  142.                     lappend script [list removeFile $frompath]
  143.                     append report "Deleted old file \"$file\" from folder \"$dir\"\n"
  144.                     lappend removed $frompath
  145.  
  146.                 } elseif {$overwriteBackups} {
  147.                     lappend script [list removeFile $topath]
  148.                     lappend script [list copyFile $frompath $topath]
  149.                     lappend script [list removeFile $frompath]
  150.                     append report "Saved old file \"$file\" in folder \"$backupDir\"\n"
  151.                     lappend removed $frompath
  152.                 
  153.                 } else {
  154.                     message "No files were moved or deleted"
  155.                     return 0
  156.                 }
  157.             } else {
  158.                 lappend script [list copyFile $frompath $topath]
  159.                 lappend script [list removeFile $frompath]
  160.                 append report "Saved old file \"$file\" in folder \"$backupDir\"\n"
  161.                 lappend removed $frompath
  162.             }
  163.         } else {
  164.             append report "-- old file \"$file\" was missing from folder \"$dir\" --\n"
  165.         }
  166.     }
  167.     
  168.     append report "\n"
  169.     
  170.     foreach item $installList {
  171.         set file [lindex $item 0]
  172.         set dir [lindex $item 1]
  173.         set loadable [lindex $item 2]
  174.         set frompath ${installDir}:${file}
  175.         set topath ${dir}:${file}
  176.         
  177.         if {[closeInstallFile $file] == "cancel"} {
  178.             return 0
  179.         }        
  180.  
  181.         if {[file exists $frompath]} {
  182.             if {[file exists $topath] && [lsearch -exact $removed $topath] < 0} {
  183.                 if {[askyesno "Can I overwrite the old copy of $file?"] == "yes"} {
  184.                     lappend script [list removeFile $topath]
  185.                     append report "Deleted old file \"$file\" in folder \"$dir\"\n"
  186.                     lappend removed $topath
  187.                 } else {
  188.                     return 0
  189.                 }
  190.             }
  191.             lappend script [list copyFile $frompath $topath]
  192.             append report "Copied file \"$file\" from folder \"$installDir\" to \"$dir\"\n"
  193.             
  194.             if { $loadable } {
  195.                 lappend script2 [list uplevel {#0} [list source ${HOME}$topath]]
  196.                 append report2 "Loaded the new file \"$file\"\n"
  197.             }
  198.         } else {
  199.             message "Installation aborted - no files were moved or deleted"
  200.             alertnote "Install file \"$file\" is missing"
  201.             return 0
  202.         }
  203.     }
  204.  
  205.     if {[llength $script2]} {
  206. # comment out these lines to stop automatic sourcing of newly loaded .tcl files
  207. # (_Don't_ change the lines creating $script2, above)
  208. #         if {$deleteBindings != 0} {
  209. #             lappend script [list deleteModeBindings $deleteBindings]
  210. #             append report "\nRemoved the old ${deleteBindings}-mode key bindings\n"
  211. #         }
  212.         set script [concat $script $script2]
  213.         append report "\n"
  214.         append report $report2
  215.  
  216.         lappend script [list message "Rebuilding Filesets menu…"]
  217.         lappend script rebuildAllFilesets
  218.         append report "\nRebuilt Filesets menu"
  219.  
  220.         lappend script [list message "Rebuilding Tcl indices…"]
  221.         lappend script rebuildTclIndices
  222.         append report "\nRebuilt Tcl indices\n"
  223.     }
  224.     
  225. # # Uncomment these lines to get a play-by-play of the installation procedure 
  226. # #
  227. #     new -n "* Install Script *"
  228.     foreach item $script {
  229. #     insertText "$item\n"
  230.         eval $item
  231.     }
  232. #     catch {shrinkWindow 1}
  233. #     setWinInfo dirty 0
  234.     
  235.     new -n "* Installation Report *"
  236.     insertText $report "\rYou must now REBOOT ALPHA.\r"
  237.     catch {shrinkWindow 1}
  238.     setWinInfo dirty 0
  239.     setWinInfo read-only 1
  240.  
  241.     return $report
  242. }
  243.  
  244. proc closeInstallFile {file} {
  245.     if {[lsearch -exact [winNames] $file] >= 0} {
  246.         set reply [askyesno -c "Close file $file before installing?"]
  247.         if {$reply == "yes"} {
  248.             bringToFront $file
  249.             killWindow
  250.         } 
  251.         if {$reply == "cancel" || 
  252.             ($reply == "yes" && [lsearch -exact [winNames] $file] >= 0)} {
  253.             message "No files were moved or deleted"
  254.             return "cancel"
  255.         }
  256.     }
  257.     return ""
  258. }
  259.